Cho vis duj sau trong Pascal:
Uses crt ;
var i: Interger
Begin
clrscr ;
i:=1
while : i < 14 do begin Writeln('0');
i:=i+1;
End ;
Readln;
End.
-Khi chạy chương trình ví dụ bên sẽ in ra bao nhiêu số 0?
A.12
B.13
C.14
D.15
Những câu hỏi liên quan
Cho biết kết quả chương trình sau và giải thích
program vidu;
uses crt;
var i:integer;
begin
clrscr;
i:=15;
while i>1 do
begin
If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
Write(i:5);
End;
readln;
end.
Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên
Đúng 0
Bình luận (0)
Tìm và sửa lỗi trong chương trình pascal sau: Uses crt; Var i, n, t : integer; Begin clrscr; write(Nhap so n ); readln(n); i : l; t : 0; while i n do begin t : t + i; i : i + l; write(Tong , t); Readln; end.
Đọc tiếp
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0; | sửa: i:=1; t:=0;
while i <= n do
begin
t := t + i;
i := i + l; | Sửa: i:=i+1;
-> Thiếu. Thêm: End;
write('Tong = ', t);
Readln;
end.
Đúng 2
Bình luận (0)
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. While i
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
Đúng 0
Bình luận (0)
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Đúng 0
Bình luận (0)
Chương trình pascal sau sẽ in ra màn hình nội dung gì? 2đ
Program vidu;
Var i: integer;
Begin
For i:=1 to 10 do Writeln(i);
Readln;
end.
Xem chi tiết
Chương trình sẽ in ra nội dung sau:
1
2
3
4
5
6
7
8
9
10
Đúng 1
Bình luận (0)
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i
Tìm những lỗi sai trong chương trình sau :
program bang_nhan_4 ;
uses crt ;
var i : integer ;
begin
clrscr ;
const
for i:= 1 to 10 do writeln(4, 'x' , 'i' , '=' , 4*i) ;
readln
end.
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACALBƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:1.1. Dem-0;1.2. Sum-0.Bƣớc 2: Trong khi dem N thì:2.1. Nhập giá trị số thực x từ bàn phím;2.2. Sum - Sum + x;2.3. Dem-Dem +1;Bƣớc 3: TB- Sum/N;Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N 5;45; 55; 67; 91Program So_nguyen_to;Uses crt;Var n, i: Integer;BEGINclrscr;Write(„Nhap...
Đọc tiếp
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else
Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
